(ns net.marigolda.repl)

(use 'net.marigolda.welcome)


(println "ooo")

(Math/pow 5 17)

(Ben :KillBill)

(kmeans 3 4)

(defn kmean [a b] 
	(Math/pow (- a b) 2))

(def mike {:A 4})
(def ben {:A 4})

(mid-result mike ben)

;--- --- --- magicpotion_workground --- --- ---
(use 'org.aloole.magicpotion)

(defn not-special-name? [n] (not (= "clojure" n)))
(property person-name [string? not-special-name?])
(meta person-name)
(property person-byear [number?])
(concept person [person-name person-byear])
(concept year [person-byear])
(year ::person-byear 18)
(def sm (year person-byear "18"))
(def n (person ::ime "clojures" ::person-byear 1234 :aaa "bbb"))
(list n)
(def newn (person ::person-name "clojures" ::person-byear 1234 :aaa "bbb"))
newn
(person? n)
(meta n)
(struct n)
(not-special-name? "nevena")
(n)
;;--- --- --- magicpotion_workground --- --- ---
